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Apple Lisa FILE LABEL Reader Utility 1.68 
Not (cd December 6, 1987 by David T. Craig 


This Proaram displays the contents of the LABEL area for a 
file. The label allows an application to Keep file data 
separate from information maintained about the file. Labels 
can be used for any object in_the Lisa File System and each 
label has a maximum size of 128 bytes. 


Enter volume name (Press <Return> to Quit> ? -UPPER 
Enter file mame prefix ? {TS 


ERLALELERELEEKETEEFSEKLEKEEEEKKEEEEKEKKKKEKKKEKEKEEKEKEERKEKEKKEEEKEEEERKEES 


eexee CSize: 128] LABEL FOR FILE “-UPPER-{TS3}dbcPHRASE" 
EELERREEREEEEEK EERE LEEK EK EEE ELE ERLE ELE ELE ELLE ERE EEE EREELELEE ER ERERNELE 


mses ree rae 
BOAoOoorge 
Qeeeoooagn 
SOooedea 
VVVOeegOn 
ASecoueeo 
Soeooaowean 
QAVOQeaagoaw 
QOe2Vg2On 
S2oeooeooe 
BSeOoqooeae 
SOAQooqgag 
Sore ggag@m 
BOooovoaeeans 
SVOecoeeoo 
QAUVqaeeweg 
VOQovoooen 
AVVoeeooe 
SOVQORIOaqg 
QVQoeoonm 
SOoeoqoon 
SQeooeodgn 
QVOoqooog 
AVOVWVVOAD 
SV oeoong 
AQoosooaonw 
S@Oooeoerg 
Seoooeoae 
@Secoqoeocoon 
SHQooaveqq 
@Soooqreog 
Seqoveaw 
Seqweroow 


EEK KEK ELK KEK HEE ELH EL ELE EK EEE EEE REKEKEEEK KEELE AEE RE ERE EERE EERE EERE 
eee*e (Size: 128) LABEL FOR FILE “-UPPER-{TS3 1mPHRASE" 
HHH AK ERK ALK KEE EKER ERNE RR EGE ARERR LEKRE ERE ERE RERRERE EEL ER EEREBEEREERERE 


N 


rr is 


cena tener eaeae? 


QeQoneoeoe 
AAOOooag 
BMQogeoeoog 
Saqaaqgoaqn 
BWeOoqowooog 
Seqoeooedag 
BDOOOooos 
SQVOoooes 
VVeoeVoon 

AQOOoodog 

BOooaaa 
QSeooowooo 
BOoqeores 
SAoaeveeq 
Seqgoaeeoaq 
S@eeooeoea 
Sooaqgoereg 
AQeeqeqoeg 
Beoqooooa 

OVOoaae 

QAVequowg 

SOeeoog 


@ 
6 
6 
Gg 
6 
8 
a 
a 


H e008 
ERERRKRKKLEZAKKSE KFEFEEKETFTLEKEZEKKEEEKKEREKKFE REFEREE KLKEEFEERELELLEEKESER 


eexexee [CSize: 128] LABEL FOR FILE "-UPPER~{TS}0BJ" 
HERE LLKAEE EN ELK AKE ELE KEE KELL EE ERK K EE REEL E KEELE LEE ELLE KELL LEEE EEE ELEEERE 


x SOeToeveeo 
ts] 
fas] 
2 
[.*] 


x BWOOOowoog 


Re 
SOeeveooog 
BOQaaanag 
QVAeoesnp 
PSOVOQeIoon 
BOveoooqoeoe 
Seqeaveaowd 
@Qeoeoroqnooanh 
BOVeGeowoonn 

on BOQooonsd 

Mm WOweewoaesy 
SOVVIeaaww 
SOooqooen 
Seeooeor 

D OOH NOCOL 

+ SOv09000 
SOoranooany 
SMIN@eooag 

C SOONCeoo 
QVVOeceeD 
QVWeovreag 
Nee ee ee 


OO ®SOeCeaeee.,) 
DOOONeaaqm 
@SOoeqooego 


wn 

“a 
a 
eee 
a] 


volume name (Pr 
That‘’s all, Folks ... 
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] 
] 
] 
] 
) Author.....0553 David T. Craig 

] Address.......: 736 Edgewater, Wichita KS 67238 
) Date.sessceseo? December 1987 

] Language......: Apple Lisa Pascal 3.76 

] Computer......: Apple Lisa 2 

: Environment...: WorkShop 3.9 

] 

} 

] 

] 

] 

] 

] 

} 


This program reads and displays the contents of the Label for 

the files on a user-specified file volume. Labels are 128 byte 

areas that are associated with a Lisa file and under complete 

control by application programmers. For example, the Lisa 

Office System (LOS) uses file labels for the purpose of mapping 

de LOS’s user-specified file names to the physical File System 
ile names. 
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PROGRAM Lisa_File Labels; 
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EXTERNAL MODULES 
EREREE EEE ERE REE ERE EERE REAR EEEE EE ETERS LEST EEA Y 


USES {$U SysCall.OBJ} SysCall; € Lisa Operating System interface } 


EREEEEEEEREE EERE EK ERE RL EREREEEERERE REE ER ERE EEE EEE EEE ELE REET REESE EREEEESE 
& 


GLOBAL CONSTANTS, TYPES and VARIABLES * 
2888 gE aaa Y 


CONST 
gc_PomAuthor ‘David T. Craig’; { Program author } 
gc_PomVersion = “1.68’5 € Program version (X.YZ) } 
ac_PomDate ‘December 6, 1987’; € Program compilation date } 


TYPE 
ot_VolumeName = PATHNAME; { Volume name } 


VAR 
qgv_UserIsDone : BOOLEAN; { User termination flag } 
qv_VolumeName : gt_VolumeName; { User volume name } 
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PROGRAM ROUTINES J 
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H a 
E : Introduce the program to the user 
(none) 


PUT (none) 
PUPPEEPP PEEP EEE EEE EEE Eee 
PROCEDURE Alpha; 


Ipha 
e Lis. 
(c) ¢ 


PEDEEE EEE EE EEE PPE PPE 
UT : Omega 

Say a farewell message to the user 

(none) 
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| OUTPUT =: (none) 
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PROCEDURE Omega; 


PROM ORSRORE OU ORURSEDOSOEUU UU SS CRORE RESSURRESSGUREEROUSERSOURORREE! 
OUTINE : FetchVolumeName 

: Prompt & fetch a volume name 

: (none) 

: volume_name - Name of volume 

user_is done - User termination flag (TRUE --> quit? 
DEERE EER EITOITI EERE EEE EPSP EPOCH EERE TEE EEE EEE 
PROCEDURE FetchVolumeName(VAR volume_name : gt VolumeName; 
VAR user_is_done : BODLEAN); 


HT } 


EGIN FetchVol umeName 

WRITELN; { Fetch the volume name } 

WRITE(’Enter volume name (Press <Return) to Quit) ? *)3 
READLN(volume_name); 


user_is_done := (volume name = 
; Tt FetchVol umeName 


PEPEERA PELE CEES PERT EET DDE ESTEE EEE EEE 
INE : ExtractFileLabels 
: Extract the file labels from all the volume files 
: volume_name ~ Name of volume to extract from 


(none) 
PEP TEE EET PEEP EEE PEPE EEE PEP EEE EEE EEE TEE EER 3 
PROCEDURE ExtractFileLabels(volume_name : gt_VolumeName); 


kK_NoError = 6; { No error code value } 
k_EndOfCatalog = 848; {€ End of catalog error code } 


TYPE 
t_ Phrase = STRING[79]; { A generic phrase } 
t_UByte = 6..259; Good old 8-bit byte } 
tLabelBuffer = PACKED ARRAY [@..127] OF t_UByte: ( Label buffer } 
t_HexBString = STRING[2]; { Hexadecimal Byte string } 


VAR 
error _ + INTEGER; Error result } : . 
entry_prefix t : Catalog file entry prefix string } 
entry_info : @ INFO; Catalog file entry information 
label file: HNAME; Eetalog file label name } 
label™buffer : t_LabelBuffer; ( Label Buffer (126 bytes) } 
label size LONGINT; Actual size of label (<= 128 bytes) } 
user_stop BOOLEAN User stop flag (TRUE --> stop) } 
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: PABORTFLAG 
Test for Apple-. Keypress 
: (none> 
: PABORTFLAG - TRUE --)> Apple-. pressed 


ShowError 
Display an error code and message 
err_code - Error code 
err_msg —- Error message 
: (none) 
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ShowError(err_code : INTEGER; err_msg : t_Phrase); 
BEGIN { ----- ShowError 
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File - UTIL/FELELABELS.SOURCE .TEXT 


{ 16-DEC-1987 20:23:45 > Page - 8663 


WRITELN( ‘#** ERROR # ’,err_code:!,’ : ’,err_msg); 
END; howError } 


Routine : byte_to_hex 

Purpose : Convert a byte into a 2 digit hexadecimal string 
Input the_byte - Byte value 

Output hex_str - Hexadecimal string 


PROCEDURE byte _to_hex(the_byte : t_UByte; VAR hex_str : t_HexBString); 
TYPE 
t_Nibble = 6..15; € A nibble or half byte 3 


VAR 
msn : t_Nibble; ( Most significant nibble of byte } 
Isn : t_Nibbles ( Least significant nibble of byte } 


FUNCTION nibble_to_hex(the nibble : t_Nibble) : CHAR; 


VAR 
hex_nibble : CHAR; 

BEGIN { nibble _to_hex 
CASE ibbte 0 


hex_nibble : 
hex_nibble : 
hex_nibble 
hex_nibble : 
hex_nibble 
hex_nibble 


hex_nibble 
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hex_nibble ; 
hex_nibble 
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e_to_hex := hex_nibble; 
nibble_to_hex ----- 


byte _to 
the_byte DI 
the_byte MOD 


“ML? H 


nibble_to_hex(msn) 
nibble_to_hex(1sn) 
byte_to_Rex”----- } 


DumpLabe]Data . 

Display the label contents as a hexadecimal table 
_tile_name - Label file name 

Ib] “size - Size of label ( <= 128 bytes) 

[pl butter - Label buffer (128 bytes) 

+ (none 
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PROCEDURE DumpLabelData<Ib]_file_name : PATHNAME; 
Ibl_size LONGINT; 
lb) “buffer : t_Label Buffer); 


K_Divider = ‘####eeeeexexcneeeeeenneeeeeneeneenee’ 5 (35 "K's } 
TYPE 
t_AsciiData = STRINGL16]; 


R 

ascii_data : 
row ‘ 
column H 
hex_str : 
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SS 
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a_byte : t_UByte; 
BEGIN DumpLabe]Data 
{ Show label table title } 


URITELNK Divider 1K Divider); 
WRITELN( Rexxx [Slze: ’,IbI_ Size: 3,/] ar FOR FILE "’ 


WRITELN(K_Divider ,k_Divider); file wpane °3 
€ Initialize the table Ascii area } 

ascii_data := ‘@123456789abcdef’; 

{ Display the table address & byte offset header } 


WRIT 
WRITING Add 6 2 4 6 8 A CE): 
WRITELN + 


Soom ae f stow mene nome meee ennn worn mone mana!) 
{ Display the table contents row by row } 
FOR row := 6 TO? DO 
BEGIN 

byte_to_hex(row # 16 , hex_str); 

WRITE(’ { ‘,hex_str,’ 3 37); 

{ Display a table row } 

FOR column := 6 TO 15 DO 

BEGIN 
IF (column MOD 2 = @> THEN 
WRITE(’ 1); 


a_byte := Ibl_buffer[(row * 16) # column); 
byte_to_hex(a_byte , hex_str): 
WRITEChex_str); 

{ Setup the table Ascii area } 


IF (a byte >= 32) AND (a_byte <= 127) THEN 
ascii_datalcolumnt1] := CHR(a_byte) 


ascii datafcolumntl] := ’.’; 
END; { FOR column } 


WRITELN(’ <’ ,ascii_data,’>’): 
END; ¢ FOR row } 
{ DumpLabelData ----- } 


BEGIN ¢ ExtractFileLabels ----- } 
{ Open specified catalog } 


RESET_CATALOG( error ,volume_name); 
{ Handle any [/0 errors } 


IF (error <> k_NoError) THEN 
Showerror error; yCONCAT( ’Reseting Catalog "’ ,volume_name,’" failed’ )> 


BEGIN 
{ Prompt user for file name prefix (if needed) } 


WRITE(‘Enter file name prefix ? “); 
Centry_prefix); 


€ Access all the files with the specified name prefix in the > 
{ specified volume and display these files’ label area 3 
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user_stop := FALSE; { User can’t stop before starting } 
__Lisa WorkShop Utility ility + FileLabels {David Craig] _ 
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File - UTIL/FILELABELS. SOURCE .TEXT € 16-DEC-1987 28:23:45 > Page - 0665 
REPEAT 

BEGIN 
{ Read a volume file’s information } 
LOOKUP_NEXT_ENTRY (error ,entry_pretix,entry_info); 
( Handle end-of-catalog } 


IF ee {> K_EndOfCatalog) THEN 


IF (error <> kK_NoError) THEN 
ShowError (error, ‘Looking up catalog entry failed’) 


BEGI 
€ Make certain entry is really a file (not a directory) 


IF centry_info.ETYPE = FILEENTRY> THEN 
{ Setup the label’s file name } 
label_file s= CONCAT<volume_name, 
entty_info.NAME) ; 
{ Read the label contents into label buffer } 
READ_LABEL(error, 
baba¢ai abel _buffer), 
labe} _8ize); 


IF (error (> K_NoError) THEN 
ShowError (error ,CONCAT( ‘ ee file "’, 
il 


‘* label failed’) 
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{ Display the label contents } 
DumpLabelData(label_file, 
label_size, 
label “buffer); 
{ Test if the user wants to stop } 


user_stop := PABORTFLAG; 
END; 


UNTIL! (error <> kK_NoError) OR user_stop; 
at ExtractFileLabels 
€ CVLICICICICICILICILICICICILICICICICICICICICICICICICICICICICIEICICIL) i 
THE MAIN EVENT : 
CUCILICICICICICVEICICICILICIEICICICICICICICICICICICICICICICICICICILI 


BEGIN ( ----- Lisa_File Labels ----- } 
Alpha; { Introduce the program } 


} 


{ Prompt the user for volume names until the user quits } 
PEAT 
GIN 
{ Fetch a volume name } 
_FetchVolumeName(gu_Vol umeName ,gy_UserI sDone): 
{ eee the volume files’ label contents } 


F NOT(gv_UserIsDone) THEN 
v extrae Fi TeLabelstgy Vol umeName) ; 


i 
1 
1 
i 
i 
1 
1 
1 
i 
1 
1 
1 
i 
| 
1 
1 
i 
i 
i 
{ 
| 
i 
| 
i 
i 
i 
i 
1 
1 
1 
i 
i 
1 
1 
1 
1 
i 
i 
i 
i 
t 
1 
i 
i 
i 
i 
i 
i 
1 
1 
1 
t 
1 
1 
j 
i 
i 
al 
1 
1 
1 
1 
1 
1 
i 
1 
i 
1 
i 
1 
1 
1 
1 
1 
i 
{ 
1 


@ Apple Lisa Computer Technical Information Page 0006 of 0010 


@ Apple Lisa Computer: Lisa File Label Reader Utility (DTC 1987) 


SSS SSS 
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END; 
UNTIL’ gv_| UsertsDone; € Stop when the user has had enough } 


fmega; { Say farewell > 
END. ----- Lisa_File Labels ----- } 
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1. ~LOWER-UTIL/FileLabels.TEXT 


alpha 
aseii data 
a_byté 


-B- 
BOOLEAN 
byte_to_hex 


279 ¢ 1) 


-D- 
dump! abel data 


-E- 
entry_info 
entry_prefix 
error 295 317 ¢ 1) 319 ¢ 1) 


err_code 
ae “mSQ 


epee ttilelabel 
e_name 


-F- 
FALSE 
fetchvolumename 
fileentry 
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c au thor 
anode te 
gc_pomversion 
gt_volumename 
Qv_userisdone 
gv_volumename 


-H- 
hex_nibble 183=( = 185-¢ 1) 
189=( 1) 


hex_str 25? ¢ 1) 
272 ( 


-[- 
INTEGER 


~K- 
K_divider 
kK_endofcatalog 
K_noerror 


label_buffer 
label “file 
label size 

i) _buffer 

Ib] file _name 
Ibt@s 

lie: file_ labels 
LONGINT 


lookup_next_entr 
Isn 265 ¢ 
204 ¢ 1) 


name 331 ¢ 
nibbte_to_hex 284¢ 1) 205 ¢ 1) 
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-0- 
ORDA 
-P- 


pabor tfla 
pathname : 


-G- 
q_info 


—R- 


READLN 
read_label 
reset_catalog 
row 


-S- 
showerror 
STRING 


syscall 


-T- 
the_byte 
the_nibble 
t_asciidata 
tThexbstring 
t"l abe! buffer 
{nibble 
“phrase 
tluby te 


-U- 
user_is done 
user_stop 


et ee et 


volume_name 
+j- 


WRITE ) 
WRITELN ; 
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File - UTIL/FILELABELS.PROCS.TEXT € 16-DEC-1987 28:36:51 > Page - 6061 
PROCEDURE/FUNCTION names FOR “LOWER-UTIL/Fi | eLabel s .TEXT 


8 Lisa File Labels [<blank>) -LOWER-UTIL/FileLabels. TEXT 
pha 


Omega 

FetchVol umeName 

ExtractFilelabels 
PABORTFLAG 
ShowError 
byte_to hex 


nibbTe_to_hex 
DumpLabe Data 


### END ProcNames: 1@ PROCEDURES AND FUNCTIONS 
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